home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Bus / S / Stock HELPER®.cpt / Stock HELPERÆ V0.2 / card_35924.txt < prev    next >
Text File  |  1988-03-23  |  2KB  |  118 lines
  1. -- card: 35924 from stack: in.2
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 35582
  5. -- name: Update All
  6. ----- HyperTalk script -----
  7. on TabKey
  8.   global updateFlag
  9.   if updateFlag="ok" then
  10.     send closeField to field "This Week's Prices"
  11.   end if
  12.   pass TabKey
  13. end TabKey
  14.  
  15.  
  16. -- part 1 (button)
  17. -- low flags: 00
  18. -- high flags: 2000
  19. -- rect: left=488 top=319 right=338 bottom=510
  20. -- title width / last selected line: 0
  21. -- icon id / first selected line: 1012 / 1012
  22. -- text alignment: 1
  23. -- font id: 0
  24. -- text size: 12
  25. -- style flags: 0
  26. -- line height: 16
  27. -- part name: Cancel
  28. ----- HyperTalk script -----
  29. on mouseUp
  30.   global updateFlag
  31.   put "cancel" into updateFlag
  32.   send closeField to field "This Week's Prices"
  33. end mouseUp
  34.  
  35.  
  36.  
  37. -- part 2 (button)
  38. -- low flags: 00
  39. -- high flags: A003
  40. -- rect: left=207 top=188 right=210 bottom=307
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: Skip This Item
  49. ----- HyperTalk script -----
  50. on mouseUp
  51.   global updateFlag
  52.   put "skip" into updateFlag
  53.   send closeField to field "This Week's Prices"
  54. end mouseUp
  55.  
  56.  
  57.  
  58. -- part 3 (button)
  59. -- low flags: 00
  60. -- high flags: A003
  61. -- rect: left=86 top=188 right=210 bottom=186
  62. -- title width / last selected line: 0
  63. -- icon id / first selected line: 0 / 0
  64. -- text alignment: 1
  65. -- font id: 0
  66. -- text size: 12
  67. -- style flags: 0
  68. -- line height: 16
  69. -- part name: OK
  70. ----- HyperTalk script -----
  71. on mouseUp
  72.   global updateFlag
  73.   put "ok" into updateFlag
  74.   send closeField to field "This Week's Prices"
  75. end mouseUp
  76.  
  77.  
  78.  
  79. -- part 6 (button)
  80. -- low flags: 00
  81. -- high flags: A003
  82. -- rect: left=328 top=188 right=210 bottom=454
  83. -- title width / last selected line: 0
  84. -- icon id / first selected line: 0 / 0
  85. -- text alignment: 1
  86. -- font id: 0
  87. -- text size: 12
  88. -- style flags: 0
  89. -- line height: 16
  90. -- part name: Cancel Update All
  91. ----- HyperTalk script -----
  92. on mouseUp
  93.   global updateFlag
  94.   put "cancel" into updateFlag
  95.   send closeField to field "This Week's Prices"
  96. end mouseUp
  97.  
  98.  
  99.  
  100. -- part contents for background part 4
  101. ----- text -----
  102. Commercial Paper (1 mo.)
  103.  
  104. -- part contents for background part 5
  105. ----- text -----
  106. 880311
  107.  
  108. -- part contents for background part 7
  109. ----- text -----
  110. 880318
  111.  
  112. -- part contents for background part 6
  113. ----- text -----
  114. 6.63
  115.  
  116. -- part contents for background part 8
  117. ----- text -----
  118. 6.55